home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE08 / CLINIC / LISTING2.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-03-16  |  224 b   |  8 lines
  1. {Listing 2}
  2. procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
  3. begin
  4.   if Key = Chr(vk_Return) then begin
  5.     Key := #0;
  6.     SelectNext(ActiveControl, GetKeyState(vk_Shift) and $80 = 0, True);
  7.   end;
  8. end;